home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / order blank-ls (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  51 lines
  1. 0 remsave"order blank-ls",8
  2. 10 print"[147][155]":poke53281,0:poke53280,4:
  3. 15 s$ ="                      "
  4. 18 t$=s$:gosub60000
  5. 20 t$=" [204][207][193][196][211][212][193][210] order blank ":gosub60000
  6. 28 t$=s$:gosub60000:print
  7. 200 :gosub1000:goto4000
  8. 1000 m$="  [204][207][193][196][211][212][193][210]":gosub60900:return
  9. 4000 p$="order form":goto63000
  10. 50000 end
  11. 60000 printtab(20-len(t$)/2);t$:return
  12. 60900 print:print"[196]o you want to see the order blank on"
  13. 60910 print:print"the screen or the printer?  <s/p>"
  14. 60920 poke198,0:wait198,1:getpr$:ifpr$<>"p"thenpr$="s"
  15. 60924 if pr$><"p"then 60930
  16. 60925 print:print"[212]urn on your printer and press <space>."
  17. 60926 poke198,0:wait198,1:getk$
  18. 60930 gosub 61000
  19. 60990 return
  20. 61000 rem order blank
  21. 61005 print"[147]";
  22. 61006 print"         [207][210][196][197][210][160][198][207][210][205][160]- [204][207][193][196][211][212][193][210] #12"
  23. 61010 print"[205]ail to:":print"   [204][207][193][196][211][212][193][210]"
  24. 61020 print"   [208].[207]. [194]ox 30007"
  25. 61030 print"   [211]hreveport, [204][193]   71130-0007"
  26. 61050 print:print"[217][197][211], start my subscription to [204][207][193][196][211][212][193][210]."
  27. 61080 print:print" 6 months for[160]$39.95      ([195]ircle one)"
  28. 61090 print"12 months for $69.95"
  29. 61100 print"   [207][214][197][210][211][197][193][211] [160]$109.95      [213][211][160]currency"
  30. 61200 print:remprint
  31. 61210 print"[206]ame:.................................. [208]hone ................"
  32. 61220 print"[193]ddress................................"
  33. 61230 print"[195]ity ................. [211]t. ... [218]ip ...."
  34. 61240 print"[211]ignature ............................."
  35. 61250 print"[214]isa/[205]aster[195]ard # ..................... [197]xp. date ........."
  36. 61255 print
  37. 61260 print"[205]ake check or money order payable to:   [204][207][193][196][211][212][193][210]."
  38. 61400 ifpr$="p"thengosub61500
  39. 61405 ifpr$="q"then61490
  40. 61410 poke207,0:poke204,0:getk$:poke2039,rnd(1)*255:ifk$=""then61410
  41. 61490 poke204,1:poke207,0:return
  42. 61500 rem screen dump
  43. 61510 open4,4,7:cmd4
  44. 61515 print:print:print:print:print:print:print
  45. 61520 pr$="q":gosub 61000
  46. 61580 print#4:close4
  47. 61590 return
  48. 63000 rem connections
  49. 63010 print"[147]load"chr$(34)p$chr$(34)",8":print"run"
  50. 63020 poke631,13:poke632,13:poke198,2:end
  51.